P*06T+ 9,hw^. 5 136 >=Px? linkTBKFunctions WM_SIZE false BinitSysArray WM_SYSCOMMAND initMPT wDiscConfigFile strBadSetup Unable to determine Startup Directory false szSysInfo Unable to determine CD-ROM Drive. wStartupDir wExtension wAppName wIndexCaption wVersionID wRomDrive wIndexApp iniString romDrive findRomDrive wShortName wConfigFile extension STARTUP startupDir initSysArray strBadSetup tb30dos.dll tb30win.dll TB30DLG.DLL is missing from the working directory false szSysInfo tb30dlg.dll wStartupDir copyFile , TARTU-" removeFile , TTART-" createDirectory getFileAttributes , Uonfig getFileSize getFileDate , UJ:K setFileAttributes KrK-" getCurrentDrive getCurrentDirectory getDriveList UsInfg getFileList getFileOnlyList getDirectoryOnlyList setCurrentDirectory getCDDriveList setCurrentDrive TB30WIN.DLL is missing from the working directory +!popMenu openFileDlg openDlg saveAsDlg chooseDirectoryDlg default or was not found on your path. TB30DOS.DLL is missing from the working directory linkTBKFunctions .&+ +E + , #? the right Unknown or unsupported media. configFile Media Viewers szSysInfo mediaType mediaViewer statusMsg isFile Cannot find disc is in the drive. wRomDrive mediaType Media Viewer (file MEDIA.VWR) not present or not properly initialized. wAppName continueMsg playMedia iniString Unsupported media E + , #> rbLeavePageMedia send playMCI " bInterrupted false enterPage tenterPageMediaSource pgNotify 5leavePageMediaRects szIdleCmds leavePage fleavePageMediaSource Reader bEnterPageMedia CenterPageMediaRects playPageMedia aborted szIdleCmds MCINotify WaveAudio Movie SfileExtension Bitmap AVI,MOV,FLI,FLC,MMM BMP,DIB,GIF,PCX,TIF,WMF Sequencer TXT,DOC Unsupported media Rich Text Format CDAudio mediaType + , #> + , #> + , #? + , #? cFindWindowByCaption strBadSetup Cannot run startupDir discIssueID szSysInfo PbaseName isFile wAppName wIndexCaption wIndexApp Yield Cannot open DDE Link to BringWindowToTop Index. ShowWindow openIndex w, #> w, #> w, #> w, #> w, #> NavBar startupBookName szSysInfo wStartupDir Prefs openPrefs WM_SIZE shutDown WWM_SYSCOMMAND WM_SYSCOMMAND Do you really want to exit? preference 06cleanUp quitPrompt shutDown cleanUp STARTUP.EXE startupBookName w, "@ startupBookName isStartup w, "@ w, #> .&+ +E w, #> w, #> strBadSetup not found. startupBookName szSysInfo wStartupDir isFile default openStartup -", #? w, #> sysError = startupDir Error logged on sysErrorNumber = isFile EofileOnly SsysInfo Error: in file logError + , #> + , #> + , #> + , #> .&+ +E ,All Files (*.*),*.* strWrongVersion . It may be an incompatible or corrupted file. szSysInfo versionID wExtension openFileDlg wVersionID wRomDrive default wShortName Cannot open ,ToolBook Books (*.?bk),*.?bk,All Files (*.*),*.* MPTMEDIA.SBK Open Magazine openMagazine myPath szSysInfo wAppName appName szSysInfo wShortName shortName szSysInfo wVersionID versionID version =PdiscIniString DISC INFO discVersionID szSysInfo wConfigFile configFile wDiscConfigFile szSysInfo discConfigFile szSysInfo wIndexApp indexApp szSysInfo wIndexCaption indexCaption szSysInfo wRomDrive romDrive szSysInfo wStartupDir startupDir + , / setCurrentDirectory szSysInfo wStartupDir setCurrentDrive zpathOnly setStartupDirectory szSysInfo wExtension extension szSysInfo wRomDrive romDrive 0wgetCDDriveList wConfigFile STARTUP ,writeIniItem findRomDrive + , > + , #> wDiscConfigFile disc.ini szSysInfo isFile wRomDrive iniString discIniString cover =PdiscIniString DISC INFO coverBitmap issueName =PdiscIniString DISC INFO discIssueName issueID =PdiscIniString DISC INFO discIssueID szSysInfo iniString Prefs wConfigFile preference Wrong or missing disc! Please replace and try again. strDiscError + , #? + , #? Wrong szSysInfo version! to the latest version of wAppName wVersionID is installed and you are attempting to open a You may wish to upgrade file. Version strWrongVersion + , #? Wrong szSysInfo version! wAppName Do you wish to perform an upgrade now? disc is in the drive. wVersionID is installed and a X6upgrade Version wrongDiscVersion + , #> + , #? szSysInfo szSysInfo szExec wRomDrive wAppName isFile wAppName wRomDrive Yield setup.exe upgrade.ins Upgrade program not found. Please make sure the latest disc is in your CD-ROM drive. setup.exe upgrade Please run Setup to correct this problem. strBadSetup + , #? w, #> Copyright(c) szSysInfo Portions Copyright(c) , Metatec Corp. wAppName wVersionID Metatec Corp. SsysInfo All rights reserved. Version helpAbout .chooseDirectoryDlg Select Directory selectDir umber szVe* P*06T+ 9,hw^. 5 136 >=Px? %"? HxuJlxA Arial DriveListViewer Page id 2 tools Page id 4 Tools Reader Open &Tools Window closeWindow Window ~= Reader "Open &Tools MPT System Book Contents Copyright(c) 1994, Metatec Corp. &File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 search Re&place... replace A&uthor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript super/subscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar Small Fonts `v/n/n/ initMPT szAppName,szShortName,szVersionID,szConfigFile,szDiscConfigFile, \ szIndexApp,szIndexCaption xinitSysArray( -- linkTBKFunctions CAN the event cannot load a DLL, so test -- Trap WM_SYSCOMMAND SC_CLOSE so that -- shutDown be called perform cleanup translateWindowMessage windowHandle on 0x0005 WM_SIZE on 0x0112 szSysInfo[] gwAppName,wShortName,wVersionID,wConfigFile,wDiscConfigFile gwRomDrive,wStartupDir,wExtension,wIndexApp,wIndexCaption y = 1 z = 2 x = 3 v = 4 s = 5 E = 6 D = 7 w = 8 v = 9 s = 10 ] = ] = ] = ] = iniString( ],"STARTUP","romDrive","",256) findRomDrive() strBadSetup("Unable determine CD-ROM startupDir","",256) Directory") extension","ncd",4) szDLL,szPath gwTries Zlogical bSysSuspend A = "tb30dos.dll" V = 1 linkDLL copyFile( removeFile( createDirectory( getFileAttributes( \getFileSize( getFileDate( setFileAttributes( getCurrentDrive() getCurrentDirectory( getDriveList() getFileList( getFileOnlyList( getDirectoryOnlyList( setCurrentDirectory( getCDDriveList() setCurrentDrive( = sysToolBookDirectory & = 4) TB30DOS. missing working directory" && \ xfound on your path.") o= default = "tb30win. popMenu( TB30WIN. = "tb30dlg. openFileDlg( openDlg( saveAsDlg( -- *** DANGER, WILL ROBINSON!! chooseDirectoryDlg() DOESN'T WORK IN MTB30EA!! *** -- -- *** IT PKILL YOUR WINDOWS SESSION d LEAVE MUCH SMEGMA IN MEMORY! *** -- -- *** GET US OUT OF HERE, SCOTTY! *** -- TB30DLG. playMedia szMediaSource,bInPlace,dwMediaLength,stMediaSize,bIsControls szExec,szFileName,szMediaType 8bkMediaViewer xisType(" ) -- *** Not CDAudio *** -- ] & xisFile( "Cannot " && & ". Please acertain" && \ " && ] && "disc drive." = mediaType( = "Unsupported statusMsg "Unknown unsupported configFile()," Viewers", ",256) <> " " && " && -- *** mediaViewer() a handler MEDIA.VWR which returns its p*** -- s (file xpresent xproperly initialized." -- *** uses whether *** -- -- *** needs poll device element length *** -- continueMsg() playMCI "Click d..." fPlacement "Opening ..." ) -- *** " && & ". " && ] && " -- *** p*** -- pgNotify PlayPageMedia,bEnterPlayed,bLeavePlayed bPlayPageMedia = bEnterPageMedia bLeavePageMedia timerStart("single",500,50, timerNotify wTimerID playPageMedia " {pageEvent szIdleCmds[] szSources[] Zstack stRects[] bInterrupted = q = " ~= Reader p = enterPageMediaSource 1] <> = enterPageMediaRects reset dimensions( i] = " """ & i] & """,""" & \ i] & = leavePageMediaSource 1] <> = leavePageMediaRects i] = " """ & i] & """,""" & \ i] & MCINotify szStatus,szOperation,szDevice ( = "aborted" 0 = " fileExtension( = "WAV" "WaveAudio" = "MID" "Sequencer" "BMP,DIB,GIF,PCX,TIF,WMF" "Bitmap" "AVI,MOV,FLI,FLC,MMM" "Movie" "TXT,DOC" "Text" = "RTF" "Rich Format" openIndex szDir, ghwnd First szDDEName bFirst = FindWindowByCaption(0, () & () & Yield() dn(0, " && ] && " = "\" discIssueID(), = baseName( r<> "OK" DDE Link " && ] && " keepRemote ShowWindow( BringWindowToTop( openPrefs ] & startupBookName()) parentHandle 4 = \ "NavBar" %modal ,wMsg,wParam,lParamLo,lParamHi , = 0xF060 szRetVal = preference("quitPrompt"," 0 = " "Do you really want f"Yes" cleanUp -- simple trap , mag app-specific sysBook didn't -- *** Danger, Will Robinson! Hard-coded filename *** -- .EXE" isStartup openStartup ] & ( ] & ( " && ( && " logError szError, szLogFile,szSysError,szLogString nErrorNumber = sysErrorNumber fileOnly( () & ".err" ~(".", seekFile logged on" && p&& " )" && " && \ :" && =" && r=" && sysInfo() & openMagazine ,szFilters c"MPTMEDIA.SBK") ] && \ "(*." & ] & "),*." & ] & \ Books (*.?bk),*.?bk,All Files (*.*),*.*" ] && \ "(*." & ] & "),*." & ] & \ ","", versionID " && & ". It may be incompatible corrupted strWrongVersion( -- *** May be opening magazine tools e*** -- myPath szTemp ) = "\" appName shortName discVersionID discIniString("DISC INFO"," ","",16) discConfigFile indexApp indexCaption setStartupDirectory success k#] = z#] = pathOnly( <> -3 = TRUE & ":\" $] = writeIniItem( section, entry, , bufSize szDiscIni gwBufSize !%] & " .ini" @ = ( I%] & = 256 coverBitmap ","",256) discIssueName issueName","",64) issueID","",16) szPref,szDefault 7,256) strDiscError replace szInstalled, %"0.0" %"0.0" " && '] && " !" & )" && x && " installed are attempting a" && \ )" && ) && " k& "You wish upgrade" && \ )latest " && V(] & "." wrongDiscVersion szDialog %"0.0" %"0.0" : = " " && (] && " !" & " && && " a" && \ " && ;+ && " V+ > k& "Do now?" )] & "setup.exe") i = " " && )] && " .ins" & "Upgrade program asure " && \ *] && " ) str correct problem." -- *** For NautilusCD, NCD.SBK ca helpAbout shows *** -- -- *** a contained H bitmap *** -- UszCompany szHelpAbout,szYear %"y" +] && " ." && +] & "Copyright(c)" && f & "," "Portions & ", Metatec Corp." && " rights reserved." & selectDir $"Select *,".") ncdVGA `hgag< ggagg agagg ggagh R...Y S.YY...Y .R5YR.. Y5R....} _.... YYYY.... YR...} YR...... .......Y R......Y Y.....Y YR..Y P*06T alinkTBKFunctions WM_SIZE zs3K;3Jc+ %0G'' F6UFW BVFW& &W6eDirectoryDlg Select Directory selectDir umber szVe*